home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / forth / amiga / amigaker.arc / 17.intuition < prev    next >
Encoding:
Text File  |  1988-01-10  |  3.0 KB  |  92 lines
  1. ;
  2. ;  17.intuition
  3. ;
  4.  
  5. * Intuition support and vocabulary.
  6.  
  7. intlink0          set      0
  8. intlink1          set      0
  9. intlink2          set      0
  10. intlink3          set      0
  11.  
  12. * Intuition       (s -- ) vocabulary
  13.                   dc.w     -1
  14.                   dc.l     link1
  15. link1             set      *-4
  16.                   dc.b     $89,'Intuitio',$80!'n'
  17.                   cnop     0,2
  18. _Intuition        dc.l     vocabulary_does
  19.                   dc.l     intLink0,intLink1,intLink2,intLink3
  20.                   dc.l     voc_link
  21. voc_link          set      *-4
  22.  
  23. * IntuitionBase   (s -- addr ) Variable holding the vector for Inuition.
  24.                   dc.w     -1
  25.                   dc.l     intlink1
  26. intlink1          set      *-4
  27.                   dc.b     $8d,'IntuitionBas',$80!'e'
  28.                   cnop     0,2
  29. _IntuitionBase    dc.l     docreate
  30. intuitionbase     dc.l     0
  31.                   dc.l     lib_link
  32. lib_link          set      *-4
  33.  
  34. * Open-Intuition  (s -- fl | t=ok. ) opens the intuition library.
  35.                   dc.w     -1
  36.                   dc.l     intlink3
  37. intlink3          set      *-4
  38.                   dc.b     $8e,'Open-Intuitio',$80!'n'
  39.                   cnop     0,2
  40. _Open_Intuition   dc.l     nest
  41.                   dc.l     _nest_quote
  42.                   dc.b     18,'intuition.library',0
  43.                   cnop     0,2
  44.                   dc.l     _drop,_0,_OpenLibrary,_dup
  45.                   dc.l     _0_notequal,_question_branch,1$
  46.                   dc.l       _IntuitionBase,_store,_true,_branch,2$
  47. 1$                dc.l       _0_equal
  48. 2$                dc.l     _exit
  49.  
  50. * Close-Intuition (s -- ) Closes the Intuition Library.
  51.                   dc.w     -1
  52.                   dc.l     intlink3
  53. intlink3          set      *-4
  54.                   dc.b     $8f,'Close-Intuitio',$80!'n'
  55.                   cnop     0,2
  56. _Close_Intuition  dc.l     nest
  57.                   dc.l     _IntuitionBase,_fetch
  58.                   dc.l     _IntuitionBase,_off,_CloseLibrary,_exit
  59.  
  60. * intuitioncall   (s flag offset mask -- ) Defining word, to make
  61. ; intuition calls.
  62.                   dc.w     -1
  63.                   dc.l     intlink1
  64. intlink1          set      *-4
  65.                   dc.b     $8D,'intuitioncal',$80!'l'
  66.                   cnop     0,2
  67. _inttuitioncall   dc.l     nest
  68.                   dc.l     _create,_w_comma,_w_comma,_w_comma
  69.                   dc.l     _nest_semi_colon_code
  70. intuitionbased    move.l   intuitionbase,a0
  71.                   jmp      callrom
  72.  
  73. * OpenWindow      (s 'newwindow -- 'window )
  74.                   dc.w     -1
  75.                   dc.l     intlink3
  76. intlink3          set      *-4
  77.                   dc.b     $8a,'OpenWindo',$80!'w'
  78.                   cnop     0,2
  79. _OpenWindow       dc.l     intuitionbased
  80.                   dc.w     %100000000,$ff34,-1
  81.  
  82. * CloseWindow     (s 'window -- )
  83.                   dc.w     -1
  84.                   dc.l     intlink3
  85. intlink3          set      *-4
  86.                   dc.b     $8b,'CloseWindo',$80!'w'
  87.                   cnop     0,2
  88. _CloseWindow      dc.l     intuitionbased
  89.                   dc.w     %100000000,$ffb8,0
  90.  
  91.  
  92.